Sub Ȯ()
    
    Dim  As String
    Dim  As String
    
     = " Դϱ?"
     = "  : "
    
    If MsgBox(, vbQuestion + vbYesNo, " Ȯ") = vbYes Then
    
         =  & ""
    
    Else
    
         =  & ""
    
    End If
    
    MsgBox , vbInformation, ""

End Sub